home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / music / omdpt123.lha / OMED_PT123.lzx / rexx / crsr_up.omed < prev    next >
Text File  |  1979-08-14  |  914b  |  37 lines
  1. /* Select range by cursors - mark range crsr up - Case 28-10-95 */
  2.  
  3. address OCTAMED_REXX
  4. options results
  5.  
  6. 'rn_isranged var rn_state'
  7.  
  8. if rn_state = 0
  9.     then do
  10.         'ed_advanceline up'
  11.         exit
  12.     end
  13. else
  14.     'ed_advanceline up'
  15.     'ed_getcurrline var currline'
  16.     'rn_getrangestartline var rnstartline'    
  17.     'rn_getrangeendline var rnendline'
  18.     'ed_getcurrtrack var currtrack'
  19.     if currline < rnstartline
  20.         then do
  21.             rnstartline = currline    /* rnendline remains */
  22.             'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline            
  23.             exit
  24.         end
  25.     else 
  26.     if currline > rnendline
  27.         then do
  28.             rnstartline = rnendline
  29.             rnendline = currline
  30.             'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline            
  31.             exit
  32.         end
  33.     else
  34.     rnendline = currline
  35.     'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' rnendline
  36. exit
  37.